home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / easygrap.arc / PRINGRAF.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-05-11  |  1.0 KB  |  35 lines
  1. 1  DEF SEG=&HB800
  2. 2  COMMON LEFT,RIGHT,TOP,BOT,RES%
  3. 5  WIDTH 40
  4. 10  SCREEN 0,1
  5. 20  COLOR 15,9,1
  6. 30  KEY OFF
  7. 45  OPEN "grafindx.ezg" AS #1 LEN=128
  8. 46  FIELD #1, 10 AS IDX$, 23 AS DESC$,2 AS RESOL$, 2 AS LEFTCOR$, 2 AS RIGHTCOR$, 2 AS TOPCOR$, 2 AS BOTCOR$
  9. 49  CLS
  10. 50  PRINT STRING$(40,176)
  11. 60  PRINT STRING$(1,176)+SPACE$(38)+STRING$(1,176)
  12. 70  PRINT STRING$(1,176)+"       EASY - GRAF   PRINT SCREEN     "+STRING$(1,176)
  13. 80  PRINT STRING$(1,176)+SPACE$(38)+STRING$(1,176)
  14. 90  PRINT STRING$(40,176)
  15. 100  PRINT " "
  16. 101  INPUT " ENTER NAME OF ITEM TO BE PRINTED        ==>";GRAFNM$
  17. 103  IF LEN(GRAFNM$) = 0 THEN CLOSE #1:CHAIN "easygraf"
  18. 105  GRAFNAM$=GRAFNM$+SPACE$(10-LEN(GRAFNM$))
  19. 110  INDX$="9999999999"
  20. 115  I = 0
  21. 120  WHILE INDX$ <> GRAFNAM$
  22. 130  I = I+1
  23. 140  IF I > 10 THEN INDX$=GRAFNAM$:GOTO 180
  24. 150  GET #1,I
  25. 152  INDX$=IDX$
  26. 155  IF INDX$=GRAFNAM$ THEN LEFT=CVI(LEFTCOR$):RIGHT=CVI(RIGHTCOR$):TOP=CVI(TOPCOR$):BOT=CVI(BOTCOR$):RES%=CVI(RESOL$)
  27. 180  WEND
  28. 185  IF I > 10 THEN PRINT "   ";GRAFNAM$;" not found":GOTO 49
  29. 190  CLOSE #1
  30. 233  SCREEN RES%,1
  31. 235  DEF SEG=&HB800
  32. 240  BLOAD GRAFNM$+".EZG",0
  33. 300  IF RES% = 1 THEN CHAIN "PRNTGRAF"
  34. 310  IF RES% = 2 THEN CHAIN "PRN2GRAF"
  35.